home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 41 / Commodore_Disc_41_19xx_-_de.d64 / disk utility v 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  4.3 KB  |  165 lines
  1. 90 poke53280,0:poke53281,0
  2. 100 print"[147]           disk-utility v2.0            ";
  3. 110 print"      (c) 1990 by torsten erdmann       [146]"
  4. 120 print" f1[146] schreibschutz setzen"
  5. 130 print" f2[146] schreibschutz loeschen"
  6. 140 print" f3[146] scratchschutz setzen/loeschen"
  7. 150 print" f4[146] floppybefehl senden"
  8. 160 print" f5[146] filetyp setzen"
  9. 170 print" f6[146] file offen/geschlossen"
  10. 180 print" f7[146] id aendern"
  11. 190 print" f8[146] diskname aendern"
  12. 195 print:print:print"             bitte waehlen  !           "
  13. 200 getx$:ifx$=""then200
  14. 210 ifasc(x$)<133orasc(x$)>140then200
  15. 220 print"[147]";:onasc(x$)-132goto850,1060,1260,650,950,1640,1480,750
  16. 230 rem ::::::::::::::::::::::::::::::
  17. 240 rem :::directory-eintrag lesen::::
  18. 250 rem ::::::::::::::::::::::::::::::
  19. 260 open15,8,15,"i":open8,8,8,"#"
  20. 270 nn$="":fori=1to30:nn$=nn$+chr$(0):nexti
  21. 280 xx=int((mm-1)/8)
  22. 290 print#15,"u1 8 0 18 0"
  23. 300 forzz=1toxx+1
  24. 310 print#15,"b-p 8 0"
  25. 320 get#8,tt$:tt=asc(tt$+chr$(0))
  26. 330 get#8,ss$:ss=asc(ss$+chr$(0))
  27. 340 print#15,"u1 8 0";tt;ss
  28. 350 nextzz
  29. 360 pp=mm-(xx*8):pp=(pp-1)*32+2
  30. 370 print#15,"b-p 8";pp
  31. 380 forzz=1to30:get#8,zz$
  32. 390 ifzz$=""thenzz$=chr$(0)
  33. 400 dd$=dd$+zz$:nextzz
  34. 410 close8:close15
  35. 420 return
  36. 430 rem ::::::::::::::::::::::::::::::
  37. 440 rem ::directory-eintrag schreiben:
  38. 450 rem ::::::::::::::::::::::::::::::
  39. 460 open15,8,15,"i":open8,8,8,"#"
  40. 470 xx=int((mm-1)/8)
  41. 480 print#15,"u1 8 0 18 0"
  42. 490 forzz=1toxx+1
  43. 500 print#15,"b-p 8 0"
  44. 510 get#8,tt$:tt=asc(tt$+chr$(0))
  45. 520 get#8,ss$:ss=asc(ss$+chr$(0))
  46. 530 iftt=0then600
  47. 540 print#15,"u1 8 0";tt;ss
  48. 550 nextzz
  49. 560 pp=mm-(xx*8):pp=(pp-1)*32+2
  50. 570 print#15,"b-p 8";pp
  51. 580 print#8,dd$;
  52. 590 print#15,"u2 8 0";tt;ss
  53. 600 close8:close15
  54. 610 return
  55. 620 rem ::::::::::::::::::::::::::::::
  56. 630 rem ::::::::::id aendern::::::::::
  57. 640 rem ::::::::::::::::::::::::::::::
  58. 650 open15,8,15
  59. 660 print#15,"i0":open1,8,3,"#":print#15,"u1:3"0",18,0"
  60. 670 print#15,"b-p:3,162":get#1,a$,b$,c$,d$,e$:print"alter disk-id ist  ";a$;
  61. 680 printb$;c$;d$;e$:input"neuer disk-id ";f$
  62. 690 iflen(f$)<>5thenf$=left$(f$+"      ",5)
  63. 700 print#15,"b-p:3,162":print#1,f$;:print#15,"u2:3"dv",18,0
  64. 710 i$[178]"i"[170][202]([196](dv),2):[152]15,i$
  65. 715 [160]1:[160]15:[138]
  66. 720 [143] ::::::::::::::::::::::::::::::
  67. 730 [143] ::::::disk-name aendern:::::::
  68. 740 [143] ::::::::::::::::::::::::::::::
  69. 750 [159]15,8,15
  70. 760 [152]15,"i0":[159]1,8,3,"#":[152]15,"u1:3"0",18,0"
  71. 770 [152]15,"b-p:3,144":r$[178]"":[129]l[178]1[164]16:[161]#1,a$:r$[178]r$[170]a$:[130]l
  72. 780 [153]"alter disk-name ist ";""r$"wait"
  73. 790 [133]"neuer disk-name ";ne$
  74. 800 ne$[178][200](ne$[170]"              ",16)
  75. 810 [152]15,"b-p:3,144":[152]1,ne$;:[152]15,"u2:3"dv",18,0":[137]710
  76. 820 [143] ::::::::::::::::::::::::::::::
  77. 830 [143] :::::schreibschutz setzen:::::
  78. 840 [143] ::::::::::::::::::::::::::::::
  79. 850 [159]15,8,15,"i":[159]8,8,8,"#"
  80. 860 [152]15,"u1 8 0 18 0"
  81. 870 [152]15,"b-p 8 2"
  82. 880 [152]8,"x";
  83. 890 [152]15,"u2 8 0 18 0"
  84. 900 [152]15,"i"
  85. 910 [160]8:[160]15:[138]
  86. 920 [143] ::::::::::::::::::::::::::::::
  87. 930 [143] ::::schreibschutz loeschen::::
  88. 940 [143] ::::::::::::::::::::::::::::::
  89. 950 [159]15,8,15,"i":[159]8,8,8,"#"
  90. 960 [152]15,"u1 8 0 18 0"
  91. 970 [152]15,"b-p 8 2"
  92. 980 [152]15,"m-w"[199](1)[199](1)[199](1)[199](65)
  93. 990 [152]8,"a";
  94. 1000 [152]15,"u2 8 0 18 0"
  95. 1010 [152]15,"i"
  96. 1020 [160]8:[160]15:[138]
  97. 1030 [143] ::::::::::::::::::::::::::::::
  98. 1040 [143] :scratchschutz setzen/loeschen
  99. 1050 [143] ::::::::::::::::::::::::::::::
  100. 1060 mm[178]0
  101. 1070 mm[178]mm[170]1:dd$[178]"":[141]260
  102. 1080 [139]dd$[178]nn$[167][138]
  103. 1090 [153][202](dd$,4,16)" (j/n)";
  104. 1100 [161]aa$:[139]aa$[179][177]"j"[175]aa$[179][177]"n"[167]1100
  105. 1110 [139]aa$[178]"n"[167][153]"cmdcmdnwait":[137]1170
  106. 1120 [153]"cmdcmdcmdcmdjwait":hh$[178][200](dd$,1)
  107. 1130 hh$[178][199]([198](hh$)[176]2[174]6)
  108. 1140 dd$[178]hh$[170][201](dd$,29)
  109. 1150 [141]460
  110. 1160 [137]1070
  111. 1170 hh$[178][200](dd$,1)
  112. 1180 [139]([198](hh$)[175]64)[167]hh$[178][199]([198](hh$)[171]64)
  113. 1190 dd$[178]hh$[170][201](dd$,29)
  114. 1200 [141]460
  115. 1210 [137]1070
  116. 1220 [138]
  117. 1230 [143] ::::::::::::::::::::::::::::::
  118. 1240 [143] ::::::::filetyp setzen::::::::
  119. 1250 [143] ::::::::::::::::::::::::::::::
  120. 1260 mm[178]0
  121. 1270 mm[178]mm[170]1:dd$[178]"":[141]260
  122. 1280 [139]dd$[178]nn$[167][138]
  123. 1290 [153][202](dd$,4,16)"  del seq prg usr rel";
  124. 1300 [161]x$:[139]x$[179][177]"d"[175]x$[179][177]"s"[175]x$[179][177]"p"[175]x$[179][177]"u"[175]x$[179][177]"r"[167]1300
  125. 1310 [139]x$[178]"d"[167]hh[178]0:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmddelwait"
  126. 1320 [139]x$[178]"s"[167]hh[178]1:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdseqwait"
  127. 1330 [139]x$[178]"p"[167]hh[178]2:[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdprgwait"
  128. 1340 [139]x$[178]"u"[167]hh[178]3:[153]"cmdcmdcmdcmdcmdcmdcmdusrwait"
  129. 1350 [139]x$[178]"r"[167]hh[178]4:[153]"cmdcmdcmdrelwait"
  130. 1360 hh$[178][200](dd$,1):hi[178][198](hh$)
  131. 1370 [139]hi[175]1[167]hi[178]hi[171]1
  132. 1380 [139]hi[175]2[167]hi[178]hi[171]2
  133. 1390 [139]hi[175]4[167]hi[178]hi[171]4
  134. 1400 hh$[178][199](hi[170]hh)
  135. 1410 dd$[178]hh$[170][201](dd$,29)
  136. 1420 [141]460
  137. 1430 [137]1270
  138. 1440 [138]
  139. 1450 [143] ::::::::::::::::::::::::::::::
  140. 1460 [143] ::::file offen/geschlossen::::
  141. 1470 [143] ::::::::::::::::::::::::::::::
  142. 1480 mm[178]0
  143. 1490 mm[178]mm[170]1:dd$[178]"":[141]260
  144. 1500 [139]dd$[178]nn$[167][138]
  145. 1510 [153][202](dd$,4,16)"  (offen/geschlossen)";
  146. 1520 [161]x$:[139]x$[179][177]"o"[175]x$[179][177]"g"[167]1520
  147. 1530 hh$[178][200](dd$,1)
  148. 1540 [139]x$[178]"g"[167][153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdgeschlossenwait":hh$[178][199]([198](hh$)[176]64):[137]1570
  149. 1550 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdoffenwait"
  150. 1560 [139]([198](hh$)[175]64)[167]hh$[178][199]([198](hh$)[171]64)
  151. 1570 dd$[178]hh$[170][201](dd$,29)
  152. 1580 [141]460
  153. 1590 [137]1490
  154. 1600 [138]
  155. 1610 [143] ::::::::::::::::::::::::::::::
  156. 1620 [143] :::::floppybefehl:senden::::::
  157. 1630 [143] ::::::::::::::::::::::::::::::
  158. 1640 [151]19,1:[133]be$:[151]19,0
  159. 1650 [159]15,8,15,be$:[160]15
  160. 1660 [159]15,8,15:[132]15,fr,f$,ft,fs
  161. 1670 [139]fr[178]0[167]1700
  162. 1680 [153]:[153]fr;f$" error";ft;fs
  163. 1690 [161]be$:[139]be$[178]""[167]1690
  164. 1700 [138]
  165.